home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / graphics / dimlib10 / form1.frm < prev    next >
Text File  |  1995-11-13  |  4KB  |  164 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "DimLib VB Demo"
  4.    ClientHeight    =   2445
  5.    ClientLeft      =   1620
  6.    ClientTop       =   1650
  7.    ClientWidth     =   5445
  8.    Height          =   2850
  9.    Left            =   1560
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2445
  12.    ScaleWidth      =   5445
  13.    Top             =   1305
  14.    Width           =   5565
  15.    Begin CheckBox Check1 
  16.       Caption         =   "Enable Dimming"
  17.       Height          =   375
  18.       Left            =   3660
  19.       TabIndex        =   13
  20.       Top             =   1320
  21.       Value           =   1  'Checked
  22.       Width           =   1755
  23.    End
  24.    Begin TextBox Text1 
  25.       Height          =   315
  26.       Index           =   4
  27.       Left            =   1500
  28.       TabIndex        =   11
  29.       Text            =   "22041"
  30.       Top             =   1560
  31.       Width           =   1935
  32.    End
  33.    Begin TextBox Text1 
  34.       Height          =   315
  35.       Index           =   3
  36.       Left            =   1500
  37.       TabIndex        =   9
  38.       Text            =   "Virginia"
  39.       Top             =   1200
  40.       Width           =   1935
  41.    End
  42.    Begin TextBox Text1 
  43.       Height          =   315
  44.       Index           =   2
  45.       Left            =   1500
  46.       TabIndex        =   7
  47.       Text            =   "Falls Church"
  48.       Top             =   840
  49.       Width           =   1935
  50.    End
  51.    Begin TextBox Text1 
  52.       Height          =   315
  53.       Index           =   1
  54.       Left            =   1500
  55.       TabIndex        =   5
  56.       Text            =   "6501 Oakwood Drive"
  57.       Top             =   480
  58.       Width           =   1935
  59.    End
  60.    Begin TextBox Text1 
  61.       Height          =   315
  62.       Index           =   0
  63.       Left            =   1500
  64.       TabIndex        =   3
  65.       Text            =   "Tim Noonan"
  66.       Top             =   120
  67.       Width           =   1935
  68.    End
  69.    Begin CommandButton Command2 
  70.       Caption         =   "Try Me Too!"
  71.       Height          =   495
  72.       Left            =   3660
  73.       TabIndex        =   1
  74.       Top             =   660
  75.       Width           =   1215
  76.    End
  77.    Begin CommandButton Command1 
  78.       Caption         =   "Try Me!"
  79.       Height          =   495
  80.       Left            =   3660
  81.       TabIndex        =   0
  82.       Top             =   120
  83.       Width           =   1215
  84.    End
  85.    Begin Label Label2 
  86.       Caption         =   "Zip Code:"
  87.       Height          =   195
  88.       Index           =   4
  89.       Left            =   180
  90.       TabIndex        =   12
  91.       Top             =   1620
  92.       Width           =   1215
  93.    End
  94.    Begin Label Label2 
  95.       Caption         =   "State:"
  96.       Height          =   195
  97.       Index           =   3
  98.       Left            =   180
  99.       TabIndex        =   10
  100.       Top             =   1260
  101.       Width           =   1215
  102.    End
  103.    Begin Label Label2 
  104.       Caption         =   "City:"
  105.       Height          =   195
  106.       Index           =   2
  107.       Left            =   180
  108.       TabIndex        =   8
  109.       Top             =   900
  110.       Width           =   1215
  111.    End
  112.    Begin Label Label2 
  113.       Caption         =   "Address:"
  114.       Height          =   195
  115.       Index           =   1
  116.       Left            =   180
  117.       TabIndex        =   6
  118.       Top             =   540
  119.       Width           =   1215
  120.    End
  121.    Begin Label Label2 
  122.       Caption         =   "Name:"
  123.       Height          =   195
  124.       Index           =   0
  125.       Left            =   180
  126.       TabIndex        =   4
  127.       Top             =   180
  128.       Width           =   1215
  129.    End
  130.    Begin Label Label1 
  131.       Caption         =   "Don't forget to register DimLib!"
  132.       Height          =   255
  133.       Left            =   180
  134.       TabIndex        =   2
  135.       Top             =   1980
  136.       Width           =   3255
  137.    End
  138. End
  139. Option Explicit
  140.  
  141. Sub Check1_Click ()
  142.     EnableDim Check1.Value
  143. End Sub
  144.  
  145. Sub Command1_Click ()
  146.     Dim i As Integer
  147.     i = DimWindow(HWnd)
  148.     Form2.Show 1
  149.     i = UnDimWindow(HWnd)
  150. End Sub
  151.  
  152. Sub Command2_Click ()
  153.     Dim i As Integer
  154.     i = DimWindow(HWnd)
  155.     MsgBox "I knew you could do it!"
  156.     i = UnDimWindow(HWnd)
  157. End Sub
  158.  
  159. Sub Form_Load ()
  160.     ChDrive App.Path
  161.     ChDir App.Path
  162. End Sub
  163.  
  164.